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Visual Basic 
Username and Password 

Dim user As String = TextBoxl.Text 

Dim pass As String = TextBox2.Text 

If user = "jimale" And pass = "123" Then 

form2.show() 
Else 

MsgBox ("your user name and password are incorrect ") 
End If 

Open Notepad 

Dim read As StreamReader 

Dim rs As DialogResult 

OpenFileDialogl. Title = "open" 

OpenFileDialogl.InitialDirectory = "G:" 

OpenFileDialogl. Filter = "txtfile| *.txt |word files |*docx|pdf file|*pdf" 

rs = OpenFileDialogl. ShowDialog 

If rs = Windows. Forms. DialogResult .OK Then 

End If 

read = New StreamReader (OpenFileDialogl. FileName) 

TextBoxl.Text = read.ReadToEnd () 

read. Close () 


textboxl.copy () 


TextBoxl.Cut () 


TextBoxl.ClearUndo () 


Copy 


Cut 


Undo 


Font 


If CheckBoxl. Checked Then 

Forml.TextBoxl.Font = New Font (Forml. TextBoxl.Text, FontStyle.Bold) 
End If 
If CheckBox2. Checked Then 

Forml.TextBoxl.Font = New Font (Forml. TextBoxl.Text, FontStyle. Italic) 
End If 
If CheckBox3. Checked Then 

Forml.TextBoxl.Font = New Font (Forml. TextBoxl.Text, FontStyle. Underline) 
End If 

Save 

Dim wr As StreamWriter 

Dim rs As DialogResult 

rs = SaveFileDialogl. ShowDialog 

If rs = Windows. Forms. DialogResult .OK Then 

wr = New StreamWriter(SaveFileDialogl. FileName, False) 

wr. Write (TextBoxl.Text) 

wr.close() 
End If 


Eng-jimale 




\J ^kiijj-jimciic; y 

i \x \ x \x \x \x \x \x \x \x \ x \ x \x \rx \x \rx \x \rx \x \x \~x -a 


